unit dProdutos;

interface
uses
classes,
dObjects;

type

Tprodutos=class(TdObjects)
private
fdescrmarca : string;
fdescrproduto : string;
fdtalteracao : tdatetime;
ffabricante : string;
fflagativo : boolean;
fidgrupo : integer;
fidproduto : integer;
funidade : string;
fvalprecounit : double;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property descrmarca : string read fdescrmarca write fdescrmarca;
 property descrproduto : string read fdescrproduto write fdescrproduto;
 property dtalteracao : tdatetime read fdtalteracao write fdtalteracao;
 property fabricante : string read ffabricante write ffabricante;
 property flagativo : boolean read fflagativo write fflagativo;
 property idgrupo : integer read fidgrupo write fidgrupo;
 property idproduto : integer read fidproduto write fidproduto;
 property unidade : string read funidade write funidade;
 property valprecounit : double read fvalprecounit write fvalprecounit;
end;

implementation
constructor Tprodutos.create;
begin
inherited;
clear;
self.AddPK(['idproduto']);
self.TableName := 'produtos';
end;
destructor Tprodutos.destroy;
begin
inherited destroy;
end;
procedure Tprodutos.clear;
begin
 fdescrmarca   :='';
 fdescrproduto :='';
 fdtalteracao  :=0;
 ffabricante   :='';
 fflagativo    :=false;
 fidgrupo      :=0;
 fidproduto    :=0;
 funidade      :='';
 fvalprecounit :=0.0;
end;



end.
